#!/usr/bin/perl -w
use v5.10;
say "What column width would you like?";
chomp(my $width = <STDIN>);

printf "Enter some lines, then press Ctrl-D:\n";
chomp(my @lines = <STDIN>);

print "1234567890" x 7,"12345\n"; # 标尺行，75
foreach(@lines){
    printf "%*s\n",$width, $_;
}
